home *** CD-ROM | disk | FTP | other *** search
/ Wayzata's Best of Shareware PC/Windows 2 / Wayzata's Best of Shareware 2.0 (Windows) (Wayzata Technology)(7112)(1994).bin / pc / dos / programg / pbwiz15 / calc.bas < prev    next >
BASIC Source File  |  1992-08-16  |  2KB  |  67 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |         PBWIZ  Copyright (c) 1991-1992  Thomas G. Hanlin III         |
  4. '   |                                                                      |
  5. '   |                      PowerBASIC Wizard's Library                     |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    $STACK 8192
  10.  
  11.    $INCLUDE "pbwiz.inc"
  12.  
  13.    $LINK "extmatha.obj"
  14.    $LINK "extmathb.pbu"
  15.  
  16.    DEFINT A-Z
  17.  
  18.    Expr$ = COMMAND$
  19.  
  20.    CALL Evaluate (Expr$, Result!, ErrCode)
  21.  
  22.    SELECT CASE ErrCode
  23.       CASE 0
  24.          PRINT Expr$; " =";
  25.          IF ABS(Result!) = Result! THEN
  26.             PRINT Result!
  27.          ELSE
  28.             PRINT " "; Result!
  29.          END IF
  30.       CASE 1
  31.          PRINT "Argument expected"
  32.       CASE 2
  33.          PRINT "Missing number"
  34.       CASE 3
  35.          PRINT "Unknown function"
  36.       CASE 4
  37.          PRINT "Unbalanced parentheses"
  38.       CASE 5
  39.          PRINT "Imaginary number"
  40.       CASE 8
  41.          PRINT "CALC  Copyright (c) 1991-1992  Thomas G. Hanlin III"
  42.          PRINT
  43.          PRINT "Syntax:"
  44.          PRINT "   CALC expression"
  45.          PRINT
  46.          PRINT "Expressions may use the following operators:"
  47.          PRINT "   +      add"
  48.          PRINT "   /      divide"
  49.          PRINT "   *      multiply"
  50.          PRINT "   -      subtract"
  51.          PRINT "   ^      raise to a power (** also works)"
  52.          PRINT
  53.          PRINT "A number of functions are also provided:"
  54.          PRINT "   ABS    absolute value         INT    integer"
  55.          PRINT "   ACOS   inverse cosine         LOG    natural log"
  56.          PRINT "   ASIN   inverse sine           PI     3.141593"
  57.          PRINT "   ATAN   inverse tangent        SIN    sine"
  58.          PRINT "   COS    cosine                 SQR    square root"
  59.          PRINT "   FRAC   fraction               TAN    tangent"
  60.          PRINT
  61.          PRINT "Trig functions expect angles in radians."
  62.       CASE 9
  63.          PRINT "Division by zero"
  64.       CASE ELSE
  65.          PRINT "Error"
  66.    END SELECT
  67.